Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/htmlso_1/html.frm

Visual Basic Form | 1998-04-09 | 20.6 KB | 668 lines

VERSION 5.00
Begin VB.Form Form1
   Caption         =   "Visual Basic Html Editor Example."
   ClientHeight    =   4320
   ClientLeft      =   1290
   ClientTop       =   1395
   ClientWidth     =   7245
   BeginProperty Font
      Name            =   "MS Sans Serif"
      Size            =   8.25
      Charset         =   177
      Weight          =   700
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   ForeColor       =   &H80000008&
   Icon            =   "HTML.frx":0000
   LinkTopic       =   "Form1"
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   4320
   ScaleWidth      =   7245
   WindowState     =   2  'Maximized
   Begin VB.CommandButton Command5
      BackColor       =   &H80000005&
      Caption         =   "End"
      DragIcon        =   "HTML.frx":030A
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   5760
      TabIndex        =   10
      Top             =   0
      Width           =   735
   End
   Begin VB.CommandButton Command4
      BackColor       =   &H80000005&
      Caption         =   "B"
      DragIcon        =   "HTML.frx":0614
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   960
      TabIndex        =   9
      Top             =   0
      Width           =   375
   End
   Begin VB.CommandButton Command3
      BackColor       =   &H80000005&
      Caption         =   "U"
      DragIcon        =   "HTML.frx":091E
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1440
      TabIndex        =   8
      Top             =   0
      Width           =   375
   End
   Begin VB.CommandButton Command2
      BackColor       =   &H80000005&
      Caption         =   "I"
      DragIcon        =   "HTML.frx":0C28
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   7
      Top             =   0
      Width           =   375
   End
   Begin VB.CommandButton Command1
      BackColor       =   &H80000005&
      Caption         =   "Colors"
      DragIcon        =   "HTML.frx":0F32
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4920
      TabIndex        =   6
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton hr
      BackColor       =   &H80000005&
      Caption         =   "HR"
      DragIcon        =   "HTML.frx":123C
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   480
      TabIndex        =   5
      Top             =   0
      Width           =   375
   End
   Begin VB.CommandButton email
      BackColor       =   &H80000005&
      Caption         =   "E-Mail"
      DragIcon        =   "HTML.frx":1546
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3120
      TabIndex        =   4
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton Picture
      BackColor       =   &H80000005&
      Caption         =   "Picture"
      DragIcon        =   "HTML.frx":1850
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4080
      TabIndex        =   3
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton link
      BackColor       =   &H80000005&
      Caption         =   "Link"
      DragIcon        =   "HTML.frx":1B5A
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2400
      TabIndex        =   2
      Top             =   0
      Width           =   735
   End
   Begin VB.CommandButton br
      BackColor       =   &H80000005&
      Caption         =   "BR"
      DragIcon        =   "HTML.frx":1E64
      BeginProperty Font
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   0
      Width           =   375
   End
   Begin VB.TextBox main
      Height          =   6135
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   0
      Top             =   480
      Width           =   6975
   End
   Begin VB.Menu mnufile
      Caption         =   "File"
      Index           =   2
      Begin VB.Menu mnufileopen
         Caption         =   "Open..."
         Index           =   1
      End
      Begin VB.Menu mnufilesave
         Caption         =   "Save..."
         Index           =   1
      End
      Begin VB.Menu mnufileprint
         Caption         =   "Print"
         Index           =   1
      End
      Begin VB.Menu mnufileexit
         Caption         =   "Exit"
         Index           =   1
      End
   End
   Begin VB.Menu mnutext
      Caption         =   "Text"
      Index           =   1
      Begin VB.Menu mnutextsize
         Caption         =   "Size"
         Index           =   5
         Begin VB.Menu mnutextsizeh1
            Caption         =   "H1"
            Index           =   1
         End
         Begin VB.Menu mnutextsizeh2
            Caption         =   "H2"
            Index           =   2
         End
         Begin VB.Menu mnutextsizeh3
            Caption         =   "H3"
            Index           =   3
         End
         Begin VB.Menu mnutextsizeh4
            Caption         =   "H4"
            Index           =   4
         End
         Begin VB.Menu mnutextsizeh5
            Caption         =   "H5"
            Index           =   5
         End
         Begin VB.Menu mnutextsizeh6
            Caption         =   "H6"
            Index           =   6
         End
         Begin VB.Menu mnutextsizeother
            Caption         =   "Other..."
            Index           =   7
         End
      End
      Begin VB.Menu mnutextcolor
         Caption         =   "Color"
         Index           =   1
         Begin VB.Menu mnutextcolorred
            Caption         =   "Red"
            Index           =   1
         End
         Begin VB.Menu mnutextcolorgreen
            Caption         =   "Green"
            Index           =   2
         End
         Begin VB.Menu mnutextcolorblue
            Caption         =   "Blue"
            Index           =   3
         End
         Begin VB.Menu mnutextcoloryellow
            Caption         =   "Yellow"
            Index           =   4
         End
         Begin VB.Menu mnutextcolorblack
            Caption         =   "Black"
            Index           =   5
         End
         Begin VB.Menu mnutextcolormagenta
            Caption         =   "Magenta"
            Index           =   6
         End
         Begin VB.Menu mnutextcolorbrown
            Caption         =   "Brown"
            Index           =   7
         End
         Begin VB.Menu mnutextcolorcyan
            Caption         =   "Cyan"
            Index           =   8
         End
         Begin VB.Menu mnutextcolorwhite
            Caption         =   "White"
            Index           =   9
         End
         Begin VB.Menu mnutextcolorblueviolet
            Caption         =   "Blue Violet"
            Index           =   10
         End
         Begin VB.Menu mnutextcolordarkbrown
            Caption         =   "Dark Brown"
            Index           =   11
         End
         Begin VB.Menu mnutextcolordarkgreen
            Caption         =   "Dark Green"
            Index           =   12
         End
         Begin VB.Menu mnutextcolordarkpurple
            Caption         =   "Dark Purple"
            Index           =   13
         End
         Begin VB.Menu mnutextcolororange
            Caption         =   "Orange"
            Index           =   14
         End
         Begin VB.Menu mnutextcolortan
            Caption         =   "Tan"
            Index           =   15
         End
         Begin VB.Menu mnutextcolorgold
            Caption         =   "Gold"
            Index           =   16
         End
      End
      Begin VB.Menu mnutextposition
         Caption         =   "Position"
         Index           =   1
         Begin VB.Menu mnutextpositioncenter
            Caption         =   "Center"
            Index           =   2
         End
         Begin VB.Menu mnutextpositionleft
            Caption         =   "Left"
            Index           =   3
         End
         Begin VB.Menu mnutextpositionright
            Caption         =   "Right"
            Index           =   4
         End
      End
      Begin VB.Menu mnutextstyles
         Caption         =   "Styles"
         Index           =   1
         Begin VB.Menu mnutextstylesbold
            Caption         =   "Bold"
            Index           =   4
         End
         Begin VB.Menu mnutextstylesunderline
            Caption         =   "Underline"
            Index           =   1
         End
         Begin VB.Menu mnutextstylesitalic
            Caption         =   "Italic"
            Index           =   5
         End
         Begin VB.Menu mnutextstylestypewriter
            Caption         =   "Typewriter"
            Index           =   6
         End
         Begin VB.Menu mnutextstylescitation
            Caption         =   "Citation"
            Index           =   7
         End
         Begin VB.Menu mnutextstylestrikethough
            Caption         =   "Strikethrough"
            Index           =   8
         End
         Begin VB.Menu mnutextstylesstrong
            Caption         =   "Strong"
            Index           =   9
         End
         Begin VB.Menu mnutextstylesblinking
            Caption         =   "Blinking"
            Index           =   3
         End
      End
   End
   Begin VB.Menu mnupage
      Caption         =   "Page"
      Index           =   1
      Begin VB.Menu mnupagesetup
         Caption         =   "Setup and Colors..."
         Index           =   5
      End
      Begin VB.Menu mnupageend
         Caption         =   "End"
         Index           =   6
      End
   End
   Begin VB.Menu mnufuntions
      Caption         =   "Funtions"
      Index           =   1
      Begin VB.Menu mnufuntionslink
         Caption         =   "Link..."
         Index           =   2
      End
      Begin VB.Menu mnufuntionsemail
         Caption         =   "E-Mail..."
         Index           =   3
      End
      Begin VB.Menu mnufuntionspicture
         Caption         =   "Picture..."
         Index           =   4
      End
   End
   Begin VB.Menu mnuhelp
      Caption         =   "Help"
      Index           =   1
      Begin VB.Menu mnuhelpabout
         Caption         =   "About..."
         Index           =   3
      End
   End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Sub br_Click()
Form1.main.SelText = Form1.main.SelText + "<br>"
End Sub
Sub Command1_Click()
Form8.Visible = True
End Sub
Sub Command2_Click()
Form1.main.SelText = "<i>" + Form1.main.SelText + "</i>"
End Sub
Sub Command3_Click()
Form1.main.SelText = "<u>" + Form1.main.SelText + "</u>"
End Sub
Sub Command4_Click()
Form1.main.SelText = "<b>" + Form1.main.SelText + "</b>"
End Sub
Sub Command5_Click()
Form1.main.SelText = Chr(13) + Chr(10) + Form1.main.SelText + "</BODY>" + Chr(13) + Chr(10) + "</HTML>"
End Sub
Sub email_Click()
Form3.Visible = True
End Sub
Sub Form_Load()
main.Height = Form1.ScaleHeight - 300
main.Width = Form1.Width
End Sub
Sub Form_Resize()
main.Height = Form1.ScaleHeight - 300
main.Width = Form1.Width
End Sub
Private Sub Form_Unload(cancel As Integer)
If MsgBox("Do you really want to Quit?", vbYesNo, "Quit?") = 6 Then
    Form1.Show
    cancel = 1
 End If
End Sub
Sub hr_Click()
Form1.main.SelText = Form1.main.SelText + "<hr>"
End Sub
Sub link_Click()
Form2.Visible = True
End Sub
Sub sub0124()
End Sub
Sub sub0141()
End Sub
Sub sub0165()
Form8.Visible = True
End Sub
Sub mnufileexit_Click(Index%)
Unload Me
End Sub
Sub mnufileopen_Click(Index%)
Form5.Visible = True
End Sub
Sub mnufileprint_Click(Index%)
Form1.PrintForm
End Sub
Sub sub01C6()
Dim l0044 As Variant
Dim l004C As Variant
Dim l0050 As Variant
l0044 = Form1.main.Text
l004C = Form7.path.Caption + "\" + Form7.filename.Text
If l0050 = 1 Then
Close
Kill l004C
Open l004C For Random As #1
Put #1, , l0044
Close
End If
If l0050 = 3 Then
Form7.Visible = True
End If
Close
End Sub
Sub mnufilesave_Click(Index%)
Form7.Visible = True
End Sub
Sub mnufuntionsemail_Click(Index%)
Form3.Visible = True
End Sub
Sub mnufuntionslink_Click(Index%)
Form2.Visible = True
End Sub
Sub mnufuntionspicture_Click(Index%)
Form4.Visible = True
End Sub
Sub sub023E()
End Sub
Sub mnuhelpabout_Click(Index%)
Dim l0064 As Variant
l0064 = "Visual Basic Html Editor Sample."
MsgBox l0064
End Sub
Sub mnupageend_Click(Index%)
Form1.main.SelText = Chr(13) + Chr(10) + Form1.main.SelText + "</BODY>" + Chr(13) + Chr(10) + "</HTML>"
End Sub
Sub mnupagesetup_Click(Index%)
Form8.Visible = True
End Sub
Sub sub02AD()
Form1.main.SelText = "<blink>" + Form1.main.SelText + "</blink>"
End Sub
Sub sub02C6()
Form1.main.SelText = "<b>" + Form1.main.SelText + "</b>"
End Sub
Sub sub02DB()
Form1.main.SelText = "<h4>" + Form1.main.SelText + "</h4>"
End Sub
Sub mnutextcolorblack_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#000000>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorblue_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#0000FF>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorblueviolet_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#9F5F9F>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorbrown_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#A62A2A>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorcyan_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#00FFFF>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolordarkbrown_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#5C4033>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolordarkgreen_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#2F4F2F>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolordarkpurple_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#871F78>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorgold_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#CD7F32>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorgreen_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#00FF00>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolormagenta_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#FF00FF>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolororange_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#FF7F00>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorred_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#FF0000>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolortan_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#DB9370>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcolorwhite_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#FFFFFF>" + Form1.main.SelText + "</font>"
End Sub
Sub mnutextcoloryellow_Click(Index%)
Form1.main.SelText = "<FONT COLOR=#FFFF00>" + Form1.main.SelText + "</font>"
End Sub
Sub sub04B1()
Form1.main.SelText = "<i>" + Form1.main.SelText + "</i>"
End Sub
Sub mnutextpositioncenter_Click(Index%)
Form1.main.SelText = "<center>" + Form1.main.SelText + "</center>"
End Sub
Sub mnutextpositionleft_Click(Index%)
Form1.main.SelText = "<p align=left>" + Form1.main.SelText + "</p>"
End Sub
Sub mnutextpositionright_Click(Index%)
Form1.main.SelText = "<p align=right>" + Form1.main.SelText + "</p>"
End Sub
Sub mnutextsizeh1_Click(Index%)
Form1.main.SelText = "<h1>" + Form1.main.SelText + "</h1>"
End Sub
Sub mnutextsizeh2_Click(Index%)
Form1.main.SelText = "<h2>" + Form1.main.SelText + "</h2>"
End Sub
Sub mnutextsizeh3_Click(Index%)
Form1.main.SelText = "<h3>" + Form1.main.SelText + "</h3>"
End Sub
Sub mnutextsizeh4_Click(Index%)
Form1.main.SelText = "<h1>" + Form1.main.SelText + "</h1>"
End Sub
Sub mnutextsizeh5_Click(Index%)
Form1.main.SelText = "<h5>" + Form1.main.SelText + "</h5>"
End Sub
Sub mnutextsizeh6_Click(Index%)
Form1.main.SelText = "<h6>" + Form1.main.SelText + "</h6>"
End Sub
Sub sub05AC()
End Sub
Sub mnutextsizeother_Click(Index%)
Form11.Visible = True
End Sub
Sub mnutextstylesblinking_Click(Index%)
Form1.main.SelText = "<blink>" + Form1.main.SelText + "</blink>"
End Sub
Sub mnutextstylesbold_Click(Index%)
Form1.main.SelText = "<b>" + Form1.main.SelText + "</b>"
End Sub
Sub mnutextstylescitation_Click(Index%)
Form1.main.SelText = "<cite>" + Form1.main.SelText + "</cite>"
End Sub
Sub mnutextstylesitalic_Click(Index%)
Form1.main.SelText = "<i>" + Form1.main.SelText + "</i>"
End Sub
Sub mnutextstylesstrong_Click(Index%)
Form1.main.SelText = "<strong>" + Form1.main.SelText + "</strong>"
End Sub
Sub mnutextstylestrikethough_Click(Index%)
Form1.main.SelText = "<strike>" + Form1.main.SelText + "</strike>"
End Sub
Sub mnutextstylestypewriter_Click(Index%)
Form1.main.SelText = "<pre>" + Form1.main.SelText + "</pre>"
End Sub
Sub mnutextstylesunderline_Click(Index%)
Form1.main.SelText = "<u>" + Form1.main.SelText + "</u>"
End Sub
Sub sub06D7()
Form1.main.SelText = "<pre>" + Form1.main.SelText + "</pre>"
End Sub
Sub sub06F2()
Form1.main.SelText = "<u>" + Form1.main.SelText + "</u>"
End Sub
Sub Picture_Click()
Form4.Visible = True
End Sub
Sub sub071D()
End Sub